home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Software Vault: The Gold Collection
/
Software Vault - The Gold Collection (American Databankers) (1993).ISO
/
cdr18
/
alad170.zip
/
DATAPAC.SCR
< prev
next >
Wrap
Text File
|
1993-06-30
|
773b
|
42 lines
SCRIPT # DATAPAC Logon
ECHO OFF
HHH OFF
;Configuration
SETSTRING 1 "###-####" | Local DATAPAC number
SETSTRING 2 "ATZ" | Modem reset
SETSTRING 3 "ATDT" | Dial command
SETSTRING 4 "########" | 8-digit region code
;
;USE "95700517" IF CALLING FROM EASTERN CANADA
;(AREA CODES: 416,418,506,514,519,613,705,709,807,819,902)
;
;USE "84400312" IF CALLING FROM WESTERN CANADA
;(AREA CODES: 204,306,403,604)
SENDLINE "%2"
WAITFOR "OK"
:DIAL
PAUSE 1
SENDLINE "%3%1"
PAUSE 1
WAITFOR "^M"
WAITFOR "^M"
IF CURRENTLINEHAS "NO"
GOTO DIAL
ENDIF
IF CURRENTLINEHAS "BUSY"
GOTO DIAL
ENDIF
PAUSE 2
SEND ".."
PAUSE 1
SEND "^M"
WAITFOR "DATAPAC:"
PAUSE 3
SENDLINE "%4"
ENDSCRIPT